5 PRINT"[147]"
10 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15
20 POKE54277,8:POKE54278,255:POKE54276,23:REM ENVELOPE AND WAVEFORM VOICE 1
25 F1=100:F2=230:REM FREQUENCIES TO BE POKED INTO VOICES 1 AND 3
30 F2=4:REM F2 CONTROLS LOWER PITCH LIMIT
40 FORZ=1TO3:POKE54287,F2:REM Z = NO. OF CYCLES
50 FORF1=1TO200:REM F1 IS UPPER PITCH LIMIT
60 POKE54273,F1:F2=F2+.01:NEXTF1:NEXTZ:POKE54278,15
70 LIST10-60